home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / sqlqry.exe / SHOWDB.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-12-31  |  3.5 KB  |  110 lines
  1. ShowDB
  2. Open Table
  3. Form2
  4. Label1
  5. Databases:
  6. Label1
  7. Tables:
  8. Label1
  9. Fields:
  10. DataBaseList
  11.     TableList
  12.         FieldList
  13. OKButton
  14. CancelButton
  15. Cancel
  16. Form_Click
  17. @    Form_Load\
  18. SqlConn
  19. Query
  20. FieldNames
  21.     TableName
  22. RetVal
  23. SqlSendCmd
  24.     TableRows
  25. SqlNextRowM
  26. NOMOREROWS
  27. Field
  28. FieldCountF
  29.     TableData
  30. SQLData
  31. MAXTABLEROWS
  32.     SqlCancelj
  33.     RowScroll
  34. Value
  35. RowScroll_Change
  36. DatabaseList
  37.     ListCount
  38.     ListIndex
  39. DataBaseList_Click
  40. DataBaseList_DblClickW
  41. Command1_Click
  42. OpenForm
  43. Unload
  44. ShowTables
  45.     TableListi
  46.     ItemCount
  47. TableList_Click
  48. DatabaseName
  49. OKButton_Click
  50. Command2_Click
  51. CancelButton_Click
  52. FieldList_Click
  53. ShowFields=
  54.     FieldList
  55. Table
  56. TableList_DblClickL
  57. FieldList_DblClick
  58. Columns
  59. SqlNumCols
  60. Fields!
  61. ColumnName/
  62. SqlColNamei
  63. ColumnType
  64. SqlColType
  65. SqlCanQuery
  66. ColumnLength
  67.     SqlColLent
  68. ColName
  69. ColType
  70.     ColLength
  71. ColLen
  72. C_Type
  73. showDB
  74. SqlCmd
  75. SqlExec
  76. Form_Load
  77. select name from master..sysdatabases order by name"
  78. If SqlCmd(SqlConn, Qry$) = FAIL% Then
  79.   MsgBox "SqlConn failed"=
  80.   Exit Sub
  81. End If
  82. If SqlExec(SqlConn) = FAIL% Then
  83.   MsgBox "SqlConn failed"L
  84.   Exit Sub
  85. End If
  86. SqlSendCmd failed"
  87. DataBaseList_DblClick
  88. OKButton_Click
  89. CancelButton_Click
  90. ShowTables
  91. select name from "
  92.  ..sysobjects where type in ( 'U', 'V' ) order by name
  93. ShowFields
  94.  .CLEAR PREVIOUS ITEMS FROM THE LIST
  95.  .BUILD A GENERIC SELECT STATEMENT
  96. select * from 
  97.  .SEND THE QUERY
  98. Sqlconn = 
  99.  .ADD FIELD NAMES TO THE LIST (NOT SORTED)
  100. String
  101. TinyInt"
  102. Smallint
  103. Integer"
  104. Money"
  105. DateTime
  106. Float"
  107. Unknown"
  108.  .CANCEL EXECUTION OF THE PREVIOUS QUERY
  109. TableList_DblClick
  110.